home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tpmul310.zip / MULTEST.PAS < prev   
Pascal/Delphi Source File  |  1992-08-12  |  1KB  |  45 lines
  1. Program MulTest;
  2. {
  3.  Copyright (c) 1992 A.B.S. - All Rights Reserved
  4.  
  5.  1.00
  6.  1.01  Minor Changes
  7.  1.10  Updated for new MulAware
  8. }
  9.  
  10. {$A-,B-,D-,F-,I-,N-,O-,R-,S-,V-,X-}
  11.  
  12. {$M 1024,0,0}
  13.  
  14. Uses
  15.   MulAware;
  16.  
  17. Procedure DoTV;
  18. Var
  19.   Version : Word;
  20. Begin
  21.   Version := MulVersion;
  22.   If Version <> 0 then Write('TopView v', Hi(MulVersion), '.', Lo(MulVersion))
  23.   else Write('TaskView, DESQview 2.00-2.25, OmniView, or Compatible');
  24. End;
  25.  
  26. Begin
  27.   WriteLn;
  28.   WriteLn('MulTest 1.10 (c) 1992 A.B.S.');
  29.   WriteLn;
  30.   Case MultiTasker of
  31.     None         : Write('No Supported MultiTasker');
  32.     DESQview     : Write('DESQview v', Hi(MulVersion), '.', Lo(MulVersion));
  33.     WinEnh       : Write('Windows v3.', Lo(MulVersion), ' in Enhanced Mode');
  34.     OS2          : Write('OS/2 v', Hi(MulVersion), '.', Lo(MulVersion));
  35.     DoubleDOS    : Write('DoubleDOS');
  36.     TopView      : DoTV;
  37.     Win386       : Write('Windows 386 v2.xx');
  38.     TaskSwitcher : Write('DOS 5.0 Task Switcher or Compatible');
  39.     WinStandard  : Write('Windows 2.xx or 3.x in Real or Standard Mode');
  40.   end;
  41.   WriteLn(' Detected');
  42.   WriteLn;
  43.   Halt(Ord(MultiTasker));
  44. End.
  45.